VERSION 5.00
Begin VB.Form frmEmail 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Email Alert"
   ClientHeight    =   5025
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8805
   Icon            =   "frmEmail.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   8805
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame fraEmail 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Email Alert Details"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   4275
      Left            =   120
      TabIndex        =   33
      Top             =   120
      Width           =   8535
      Begin VB.ComboBox f1552 
         Height          =   315
         Index           =   3
         ItemData        =   "frmEmail.frx":1272
         Left            =   5880
         List            =   "frmEmail.frx":1274
         TabIndex        =   30
         Top             =   3780
         Width           =   2415
      End
      Begin VB.ComboBox f1552 
         Height          =   315
         Index           =   2
         ItemData        =   "frmEmail.frx":1276
         Left            =   5880
         List            =   "frmEmail.frx":1278
         TabIndex        =   29
         Top             =   3420
         Width           =   2415
      End
      Begin VB.ComboBox f1552 
         Height          =   315
         Index           =   1
         ItemData        =   "frmEmail.frx":127A
         Left            =   5880
         List            =   "frmEmail.frx":127C
         TabIndex        =   28
         Top             =   3060
         Width           =   2415
      End
      Begin VB.ComboBox f1967 
         Height          =   315
         ItemData        =   "frmEmail.frx":127E
         Left            =   7140
         List            =   "frmEmail.frx":128B
         TabIndex        =   9
         Top             =   1080
         Width           =   1155
      End
      Begin VB.ComboBox f1964 
         Height          =   315
         Index           =   1
         ItemData        =   "frmEmail.frx":12B1
         Left            =   7140
         List            =   "frmEmail.frx":12BE
         TabIndex        =   14
         Top             =   1440
         Width           =   1155
      End
      Begin VB.ComboBox f1964 
         Height          =   315
         Index           =   2
         ItemData        =   "frmEmail.frx":12E4
         Left            =   7140
         List            =   "frmEmail.frx":12F1
         TabIndex        =   19
         Top             =   1800
         Width           =   1155
      End
      Begin VB.ComboBox f1964 
         Height          =   315
         Index           =   3
         ItemData        =   "frmEmail.frx":1317
         Left            =   7140
         List            =   "frmEmail.frx":1324
         TabIndex        =   24
         Top             =   2160
         Width           =   1155
      End
      Begin VB.ComboBox f1965 
         Height          =   315
         ItemData        =   "frmEmail.frx":134A
         Left            =   7140
         List            =   "frmEmail.frx":1357
         TabIndex        =   4
         Top             =   720
         Width           =   1155
      End
      Begin VB.ComboBox f1558 
         Height          =   315
         Left            =   1740
         TabIndex        =   27
         Top             =   3420
         Width           =   2415
      End
      Begin VB.ComboBox f1555 
         Height          =   315
         Left            =   1740
         TabIndex        =   26
         Top             =   3060
         Width           =   2415
      End
      Begin VB.CheckBox f1960 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check1"
         Height          =   255
         Index           =   1
         Left            =   6480
         TabIndex        =   13
         Top             =   1440
         Width           =   195
      End
      Begin VB.CheckBox f1960 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check1"
         Height          =   255
         Index           =   2
         Left            =   6480
         TabIndex        =   18
         Top             =   1800
         Width           =   195
      End
      Begin VB.CheckBox f1960 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check1"
         Height          =   255
         Index           =   3
         Left            =   6480
         TabIndex        =   23
         Top             =   2160
         Width           =   195
      End
      Begin VB.CheckBox f1962 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check1"
         Height          =   255
         Left            =   6480
         TabIndex        =   8
         Top             =   1080
         Width           =   195
      End
      Begin VB.CheckBox f1961 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check1"
         Height          =   255
         Left            =   6480
         TabIndex        =   3
         Top             =   720
         Width           =   195
      End
      Begin VB.TextBox f1203 
         Height          =   495
         Left            =   1740
         MultiLine       =   -1  'True
         TabIndex        =   25
         Top             =   2520
         Width           =   6555
      End
      Begin VB.CheckBox f1551 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "f1551"
         Height          =   255
         Index           =   1
         Left            =   5460
         TabIndex        =   12
         Top             =   1440
         Width           =   255
      End
      Begin VB.CheckBox f1551 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "f1551"
         Height          =   255
         Index           =   2
         Left            =   5460
         TabIndex        =   17
         Top             =   1800
         Width           =   255
      End
      Begin VB.CheckBox f1557 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Left            =   4560
         TabIndex        =   6
         Top             =   1080
         Width           =   255
      End
      Begin VB.CheckBox f1206 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Index           =   1
         Left            =   4560
         TabIndex        =   11
         Top             =   1440
         Width           =   255
      End
      Begin VB.CheckBox f1206 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Index           =   2
         Left            =   4560
         TabIndex        =   16
         Top             =   1800
         Width           =   255
      End
      Begin VB.CheckBox f1553 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Left            =   5460
         TabIndex        =   2
         Top             =   720
         Width           =   255
      End
      Begin VB.CheckBox f1556 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   5460
         TabIndex        =   7
         Top             =   1080
         Width           =   255
      End
      Begin VB.CheckBox f1554 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Left            =   4560
         TabIndex        =   1
         Top             =   720
         Width           =   255
      End
      Begin VB.TextBox f1201 
         Height          =   315
         Left            =   1740
         TabIndex        =   0
         Top             =   720
         Width           =   2415
      End
      Begin VB.TextBox f1202 
         Height          =   315
         Left            =   1740
         TabIndex        =   5
         Top             =   1080
         Width           =   2415
      End
      Begin VB.TextBox f1204 
         Height          =   315
         Index           =   1
         Left            =   1740
         TabIndex        =   10
         Top             =   1440
         Width           =   2415
      End
      Begin VB.TextBox f1204 
         Height          =   315
         Index           =   2
         Left            =   1740
         TabIndex        =   15
         Top             =   1800
         Width           =   2415
      End
      Begin VB.CheckBox f1551 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "f1551"
         Height          =   255
         Index           =   3
         Left            =   5460
         TabIndex        =   22
         Top             =   2160
         Width           =   255
      End
      Begin VB.CheckBox f1206 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Check3"
         Height          =   255
         Index           =   3
         Left            =   4560
         TabIndex        =   21
         Top             =   2160
         Width           =   255
      End
      Begin VB.TextBox f1204 
         Height          =   315
         Index           =   3
         Left            =   1740
         TabIndex        =   20
         Top             =   2160
         Width           =   2415
      End
      Begin VB.Label lbl1552 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other Language 3:"
         Height          =   315
         Index           =   2
         Left            =   4260
         TabIndex        =   50
         Top             =   3840
         Width           =   1515
      End
      Begin VB.Label lbl1552 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other Language 2:"
         Height          =   315
         Index           =   1
         Left            =   4260
         TabIndex        =   49
         Top             =   3480
         Width           =   1515
      End
      Begin VB.Label lbl1552 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other Language 1:"
         Height          =   315
         Index           =   0
         Left            =   4260
         TabIndex        =   48
         Top             =   3120
         Width           =   1515
      End
      Begin VB.Label lblFormat 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "Format"
         Height          =   255
         Left            =   7200
         TabIndex        =   47
         Top             =   420
         Width           =   855
      End
      Begin VB.Label lbl1558 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Recipient Language:"
         Height          =   315
         Left            =   120
         TabIndex        =   46
         Top             =   3480
         Width           =   1515
      End
      Begin VB.Label lbl1555 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Sender Language:"
         Height          =   315
         Left            =   240
         TabIndex        =   45
         Top             =   3120
         Width           =   1395
      End
      Begin VB.Label lblExceptNotif 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "Exception Notification"
         Height          =   375
         Left            =   6120
         TabIndex        =   44
         Top             =   240
         Width           =   855
      End
      Begin VB.Label lblMessage 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "(120 Chars Max) "
         ForeColor       =   &H000080FF&
         Height          =   255
         Index           =   1
         Left            =   480
         TabIndex        =   43
         Top             =   2760
         Width           =   1155
      End
      Begin VB.Label lblMessage 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Message:"
         Height          =   255
         Index           =   0
         Left            =   900
         TabIndex        =   42
         Top             =   2520
         Width           =   735
      End
      Begin VB.Label lblDelNotif 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "Delivery Notification"
         Height          =   375
         Left            =   5160
         TabIndex        =   41
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label28 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "Shipment Notification"
         Height          =   375
         Left            =   4200
         TabIndex        =   40
         Top             =   240
         Width           =   975
      End
      Begin VB.Label lblOther1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other 1:"
         Height          =   255
         Left            =   900
         TabIndex        =   39
         Top             =   1500
         Width           =   735
      End
      Begin VB.Label lblSender 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Sender:"
         Height          =   255
         Left            =   1020
         TabIndex        =   38
         Top             =   780
         Width           =   615
      End
      Begin VB.Label lblRecipient 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Recipient:"
         Height          =   255
         Left            =   900
         TabIndex        =   37
         Top             =   1140
         Width           =   735
      End
      Begin VB.Label Label27 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Email Address"
         Height          =   255
         Left            =   1740
         TabIndex        =   36
         Top             =   420
         Width           =   1455
      End
      Begin VB.Label lblOther2 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other 2:"
         Height          =   255
         Left            =   900
         TabIndex        =   35
         Top             =   1860
         Width           =   735
      End
      Begin VB.Label lblOther3 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Other 3:"
         Height          =   255
         Left            =   900
         TabIndex        =   34
         Top             =   2220
         Width           =   735
      End
   End
   Begin VB.CommandButton cmdClose 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Cancel"
      Height          =   315
      Left            =   4680
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   4560
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Save/Exit"
      Height          =   315
      Left            =   2880
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   31
      Top             =   4560
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
End
Attribute VB_Name = "frmEmail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



'---------------------------------------------------------------------------------------
' Procedure : Save()
' DateTime  : 10/23/2009
' Purpose   : Give integration a published hook to Save email
'---------------------------------------------------------------------------------------
'
Public Sub Save()

    Call cmdSave_Click

End Sub
'

'---------------------------------------------------------------------------------------
' Procedure : cmdClose_Click()
' DateTime  : 2/18/2004
' Purpose   : Close button hides form
'---------------------------------------------------------------------------------------
'
Private Sub cmdClose_Click()
    Me.Hide
    If frmShip.Visible Then frmShip.SetFocus
End Sub

'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click()
' DateTime  : 2/18/2004
' Modified  : 3/17/2006 Added new Ship Alert fields and used IIF function.
' Purpose   : Save button assigns Email fields to global vars.
'---------------------------------------------------------------------------------------
'
Private Sub cmdSave_Click()
    Call AssignFormGlobalVars
    Me.Hide
    If frmShip.Visible Then frmShip.SetFocus
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars()
' DateTime  : 4/26/2006
' Purpose   : Assign the form's global vars
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    'Shipper Email Alert fields
    g_str1201 = f1201                                       'Shipper Email
    g_str1553 = IIf(f1553 = 1, "Y", "")                     'Shipper POD Alert
    g_str1554 = IIf(f1554 = 1, "Y", "")                     'Shipper Ship Alert
    g_str1961 = IIf(f1961 = 1, "Y", "")                     'Shipper Except Alert
    g_str1965 = Left(f1965, 1)                              'Shipper Email Format
    'Recipient Email Alert fields
    g_str1202 = f1202                                       'Recipient Email
    g_str1556 = IIf(f1556 = 1, "Y", "")                     'Recip POD Alert
    g_str1557 = IIf(f1557 = 1, "Y", "")                     'Recip Ship Alert
    g_str1962 = IIf(f1962 = 1, "Y", "")                     'Recip Except Alert
    g_str1967 = Left(f1967, 1)                              'Recip Email Format
    'Other Email Alert fields
    g_str1204_1 = f1204(1)                                  'Other Email 1
    g_str1204_2 = f1204(2)                                  'Other Email 2
    g_str1204_3 = f1204(3)                                  'Other Email 3
    g_str1206_1 = IIf(f1206(1) = 1, "Y", "")                'Other Ship Alert 1
    g_str1206_2 = IIf(f1206(2) = 1, "Y", "")                'Other Ship Alert 2
    g_str1206_3 = IIf(f1206(3) = 1, "Y", "")                'Other Ship Alert 3
    g_str1551_1 = IIf(f1551(1) = 1, "Y", "")                'Other POD Alert 1
    g_str1551_2 = IIf(f1551(2) = 1, "Y", "")                'Other POD Alert 2
    g_str1551_3 = IIf(f1551(3) = 1, "Y", "")                'Other POD Alert 3
    g_str1960_1 = IIf(f1960(1) = 1, "Y", "")                'Other Except Alert 1
    g_str1960_2 = IIf(f1960(2) = 1, "Y", "")                'Other Except Alert 2
    g_str1960_3 = IIf(f1960(3) = 1, "Y", "")                'Other Except Alert 3
    g_str1964_1 = Left(f1964(1), 1)                         'Other Format 1
    g_str1964_2 = Left(f1964(2), 1)                         'Other Format 2
    g_str1964_3 = Left(f1964(3), 1)                         'Other Format 3
    'Message
    g_str1203 = f1203                                       'Email Message
    'Language codes
    g_str1555 = Left(f1555, 2)                              'Shipper Language Code
    g_str1558 = Left(f1558, 2)                              'Recip Language Code
    g_str1552_1 = Left(f1552(1), 2)                         'Other Language Code 1
    g_str1552_2 = Left(f1552(2), 2)                         'Other Language Code 2
    g_str1552_3 = Left(f1552(3), 2)                         'Other Language Code 3

End Sub

Private Sub f1201_LostFocus()
    Call AfterLostFocus(f1201)
End Sub

'---------------------------------------------------------------------------------------
' Procedure : f1203_Change()
' DateTime  : 3/6/2006
' Purpose   : Sets the max length to 120 chars
'---------------------------------------------------------------------------------------
'
Private Sub f1203_Change()
    Call CheckLength(f1203, 120)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1552_Change()
' DateTime  : 3/17/2006
' Purpose   : Sets the entire combo text
'---------------------------------------------------------------------------------------
'
Private Sub f1552_Change(Index As Integer)
    If Len(f1552(Index)) >= 2 Then
        Call SetComboSelection(f1552(Index), f1552(Index))
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1552_Click()
' DateTime  : 3/17/2006
' Purpose   : Sets the max length to 120 chars
'---------------------------------------------------------------------------------------
'
Private Sub f1552_Click(Index As Integer)
    Call SetLocale(f1552(Index))
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1555_Change()
' DateTime  : 3/17/2006
' Purpose   : Sets the entire combo text
'---------------------------------------------------------------------------------------
'
Private Sub f1555_Change()
    If Len(f1555) >= 2 Then
        Call SetComboSelection(f1555, f1555)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1555_Click()
' DateTime  : 3/17/2006
' Purpose   : Sets the max length to 120 chars
'---------------------------------------------------------------------------------------
'
Private Sub f1555_Click()
    Call SetLocale(f1555)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetLocale()
' DateTime  : 3/17/2006
' Purpose   : Sets the locale variable for the given language code.
'---------------------------------------------------------------------------------------
'
Private Sub SetLocale(ByVal MyCombo As ComboBox)
    Dim strLocale As String
    
    If InStr(MyCombo, "(Spain)") > 0 Then
        strLocale = "ES"
    ElseIf InStr(MyCombo, "(Canada)") > 0 Then
        strLocale = "CA"
    ElseIf InStr(MyCombo, "(Simplified)") > 0 Then
        strLocale = "CN"
    ElseIf InStr(MyCombo, "(Taiwan)") > 0 Then
        strLocale = "TW"
    ElseIf InStr(MyCombo, "(Hong Kong)") > 0 Then
        strLocale = "HK"
    Else
        strLocale = ""
    End If
    
    Select Case MyCombo.name
        Case "f1555"
            g_str1969 = strLocale
        Case "f1558"
            g_str1970 = strLocale
        Case "f1552"
            g_str1968_1 = strLocale
            g_str1968_2 = strLocale
            g_str1968_3 = strLocale
    End Select

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1558_Change()
' DateTime  : 3/17/2006
' Purpose   : Sets the entire combo text
'---------------------------------------------------------------------------------------
'
Private Sub f1558_Change()
    If Len(f1558) >= 2 Then
        Call SetComboSelection(f1558, f1558)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1555_Click()
' DateTime  : 3/17/2006
' Purpose   : Sets the max length to 120 chars
'---------------------------------------------------------------------------------------
'
Private Sub f1558_Click()
    Call SetLocale(f1558)
End Sub

'---------------------------------------------------------------------------------------
' Procedure : Form_Activate()
' DateTime  : 2/18/2004
' Purpose   : Enable all Controls then if SP disable ones that don't apply.
'---------------------------------------------------------------------------------------
'
Private Sub Form_Activate()
    Dim i As Integer
    
    Dim MyControl As Control
    
    For Each MyControl In Me.Controls
        MyControl.Enabled = True
    Next
    
    'If SP disable fields that don't apply
    If Left(frmShip.f1274, 2) = "99" Then
        f1553.Enabled = False           'Sdr Del Notif
        f1556.Enabled = False           'Recip Del Notif
        For i = 1 To 3                  'Other 1-3 Del Notif
            f1551(i).Enabled = False
        Next
        f1961.Enabled = False           'Sdr Except Notif
        f1962.Enabled = False           'Recip Except Notif
        For i = 1 To 3                  'Other 1-3 Except Notif
            f1960(i).Enabled = False
        Next
        f1965.Enabled = False           'Sdr Format
        f1967.Enabled = False           'Recip Format
        For i = 1 To 3                  'Other 1-3 Format
            f1964(i).Enabled = False
        Next
        lblDelNotif.Enabled = False     'Del Notif label
        lblExceptNotif.Enabled = False  'Exception Notif label
        lblFormat.Enabled = False       'Format label
        lbl1555.Enabled = False         'Sdr Language Label
        f1555.Enabled = False           'Sdr Language
        lbl1558.Enabled = False         'Recip Language Label
        f1558.Enabled = False           'Recip Language
        lbl1552(0).Enabled = False         'Other Language Label
        lbl1552(1).Enabled = False         'Other Language Label
        lbl1552(2).Enabled = False         'Other Language Label
        f1552(1).Enabled = False           'Other Language
        f1552(2).Enabled = False           'Other Language
        f1552(3).Enabled = False           'Other Language
        
    End If

    Call AfterScreenChange(Me)
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Load()
' DateTime  : 3/17/2006
' Purpose   : Initialize form components
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()
    Call LoadLanguageCombo(f1555)
    Call LoadLanguageCombo(f1558)
    Call LoadLanguageCombo(f1552(1))
    Call LoadLanguageCombo(f1552(2))
    Call LoadLanguageCombo(f1552(3))
    f1555 = "en"
    f1558 = "en"
    f1552(1) = "en"
    f1552(2) = "en"
    f1552(3) = "en"
    f1965.ListIndex = 1
    f1967.ListIndex = 1
    f1964(1).ListIndex = 1
    f1964(2).ListIndex = 1
    f1964(3).ListIndex = 1
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_KeyDown()
' DateTime  : 2/17/2005
' Purpose   : Enter key pressed sends a TAB to move to next field
'---------------------------------------------------------------------------------------
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not TypeOf Me.ActiveControl Is CommandButton Then
        If Shift = 0 And KeyCode = 13 Then
            SendKeys "{TAB}"
        End If
    End If
End Sub
Private Sub LoadLanguageCombo(ByVal MyCombo As ComboBox)
    MyCombo.AddItem "da - Danish"
    MyCombo.AddItem "de - German"
    MyCombo.AddItem "en - English"
    MyCombo.AddItem "es - Spanish (Latin America)"
    MyCombo.AddItem "es - Spanish (Spain)"
    MyCombo.AddItem "fr - French (Canada)"
    MyCombo.AddItem "fr - French (Europe)"
    MyCombo.AddItem "it - Italian"
    MyCombo.AddItem "ja - Kanji (Japan)"
    MyCombo.AddItem "ko - Korean"
    MyCombo.AddItem "nl - Dutch"
    MyCombo.AddItem "pt - Portugese"
    MyCombo.AddItem "sv - Swedish"
    MyCombo.AddItem "zh - Chinese (Simplified)"
    MyCombo.AddItem "zh - Chinese (Taiwan)"
    MyCombo.AddItem "zh - Chinese (Honk Kong)"
End Sub
'---------------------------------------------------------------------------------------
' Module    : GotFocus - textboxes
' DateTime  : 8/29/2005
' Author    : Chris Elwell
' Purpose   : The subroutines below call a routine to select all text in the text box
'             passed to the sub.
'---------------------------------------------------------------------------------------
'
Private Sub f1201_GotFocus()
    Call SelectAllText(f1201)
End Sub
Private Sub f1202_GotFocus()
    Call SelectAllText(f1202)
End Sub
Private Sub f1203_GotFocus()
    Call SelectAllText(f1203)
End Sub
Private Sub f1204_GotFocus(Index As Integer)
    Call SelectAllText(f1204(Index))
End Sub

